Top 10k strings from Character Generator (19xx)(Gloster Software).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   2 ;"                    ";
   2 ;"                            "
   2 +qc)+c$(q,4
   2 +qc)+c$(q,3
   2 +qc)+c$(q,2
   1 x=sg+q*168
   1 wwwwwwwwwwwwwwwwwwwwwwwwwwwwww
   1 rP%rw`RPwp"'pv"
   1 q=sg+n*168
   1 pPVuW%REPV
   1 gf5       
   1 gf4       
   1 gf3       
   1 gf2       
   1 gf1       H
   1 gencharm  
   1 dispdem   
   1 disp      
   1 dg        H
   1 demo      !
   1 c(n)=c(n-1
   1 c(n)=c(n+1
   1 c$(r)=k$(x+1
   1 c$(n)=c$(n,8
   1 c$(n)=c$(n,2
   1 UPUU$PUPD@Ut@EW
   1 UPUU$P%PT@UTPEU
   1 TpGT&PUPv`EvpeW
   1 START TAPE AND WAIT!
   1 RP%R'P"pwp"WpE%
   1 PPTUU%REPT
   1 PLEASE DO NOT STOP TAPE";
   1 Enter next COMMAND  ...  
   1 E%@TUEPT U
   1 COMMANDS"'"l
   1 @PTut%REpT
   1 >>>~>>>>>>>>>>>>>>>>>>>>>>>>>>
   1 ;''''''''''''"     
   1 ;"t or w for animation";
   1 ;"Press l to load next":
   1 ;"Press b d g j p r s";
   1 ;"'TIL THE TRUMPETS SOUND
   1 ;" ";p$(k):
   1 ;"                    "
   1 8::::::::::::::::::::::::::::::888qqqqqqqqqqqqqqqqqqqqqqqqqqqq888qjjjjjj8888888888888888jjjjjjq88qrrrrrr8888888888888888rrrrrrq88qrrrrrr8888888888888888rrrrrrq88q;;;;;;8888888888888888;;;;;;q88q8888888889999999999999999999q88q:::0000000000000000000000:::q88q8880000000000000000000000888q88q<<:0000000000000000000000888q88q<<:0000000000000000000000888q88q8990000000000000000000000::8q88q8990000000000000000000000998q88q8880000000000000000000000888q88q8880000000000000000000000888q88q8880000000000000000000000888q88q8888888888888888888888888888q88q8888888888888888888888888888q88q8;;8888888888888888888888;;8q88q8888888888888888888888888888q888qqqqqqqqqqqqqqqqqqqqqqqqqqqq888::::::::::::::::::::::::::::::88888888888888888888888888888888888888888888888888888888888888888
   1 4,4,4,4,<$
   1 1'`VEEPv U
   1 0110001010010000101101101000100110101100011000110000100101001110
   1 0000000100100011010001010110011110001001101010111100110111101111
   1 +qc)+c$(q,1
   1 +n,k;r$(l,n*6
   1 *x)*(x$=q$(1
   1 *(p$(p)=" ")):
   1 *(n=pg),10
   1 *(k$="w")+1000
   1 *(k$="t")+600
   1 *(k$="s")+800
   1 *(k$="r")+900
   1 *(k$="p")+700
   1 *(k$="l"):
   1 *(k$="j")+300
   1 *(k$="g")+500
   1 *(k$="d")+200
   1 *(k$="b")+400
   1 )+k$(c(r)-x*16
   1 )+j$(c(r)-x*16
   1 (xpand)"'"
   1 (no more)"'"
   1 '"x?  EXPAND a quarter of char to     full char size  ?=quad 1-4."
   1 '"t?  TURN t+ clockwise, t- anti-     clockwise, t++ half turn."''"i   INVERT flips char over"'"r   REVERSE - back-to-front"
   1 '"n   NO MORE terminates the run."
   1 '"m   MOVE to exchange row            contents in the UD table        (reply to further prompts)"
   1 '"f?  FETCH a keyboard character      ?=char  (eg f^)"'"p?? PICK a char from user def.      table  ??=table ref (eg pDg)"
   1 '"e?  ESTABLISH char from work        area in normal UD area by       key or in extended area by      by ref (eg ej OR eDs)"
   1 '"d   DRAW or modify shape in work    area. The row ref flashes on    operative row. Press keys       1-8 to change pixel, key 9      to move down row, key 0 EXIT"
   1 '"5 6 SHIFT chars by direction    7 8 marked above keys."
   1 $""""""""""""""""""""""""""""""$
   1 "saving from which page ?";q$:
   1 "genchars"
   1 "a"-pg*168
   1 "What page to LOAD from? ";n$:
   1 "What name to SAVE under? ";n$
   1 "The following are the commands;"''"l   LOAD a tape file of shapes."'"s   SAVE some shapes on tape."
   1 "Now re-wind tape and press ENTER to 
   1 "How many pages? ";pn:
   1 "How many pages to load?";pn:
   1 "Enter the TWO pages that are to exchange places (eg ""FJ"")";q$:
   1 "Enter name of file (press ENTER if name not known) ";n$
   1 "'''''''''''
   1  (move)"'"
   1